home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 103 / XENIATGM103.iso / Shareware / GoLive 5.0 / MM9.Cab / F1484_ui5.asp.9B3B646D_CB56_4EAE_BAB7_3E7E8E41A649 < prev    next >
Text File  |  2000-08-17  |  733b  |  34 lines
  1. <%
  2.  
  3. '
  4. ' Support for Customizable UI for DynamicLink
  5. '
  6. ' COPYRIGHT (c) 2000 Adobe Systems Incorporated. All rights reserved.
  7. '
  8.  
  9. Response.Buffer = False
  10. Response.ContentType = "text/xml"
  11.  
  12. set fso = CreateObject("Scripting.FileSystemObject")
  13.  
  14. thisFilename = Request.ServerVariables("PATH_TRANSLATED")
  15. foldername = fso.GetParentFolderName(thisFilename)
  16.  
  17. set infoFolder = fso.GetFolder(foldername)
  18.  
  19. Response.Write "<ui5>"
  20. for each file in infoFolder.Files
  21.     if Right(file.Name, 8) = ".ui5.xml" then
  22.         Response.Write "<!-- " & file.Name & " -->" & vbNewLine
  23.  
  24.         set stream = fso.OpenTextFile(file.Path, 1)
  25.         Response.Write stream.ReadAll
  26.  
  27.         Response.Write vbNewLine
  28.     end if
  29. next
  30.  
  31. Response.Write "</ui5>"
  32.  
  33. %>
  34.